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BUMPAS REVIEWS 


This is the first issue of the ACE Newsletter in which all the articles 
are edited using the Atari 520 ST. I'm using ST Writer (Atari Writer ported 
r r ) as my word processor. It's really nice having the full 80 columns 
which to work. Now I can see better what the article will look like 
a^o-r it's printed. 

$10 to The Soft Cellar, 29 Red Cedar Drive, Rochester, NY 14616 
will get you "T: A Text Display Device" which is an autoloading machine 
language utility to display text directly on any graphics screen. An APX 
award-winner. 

WARNING: If you're using DOS2.5XL (the patch to your DOS 2.5 
appears in this issue), better keep a copy of your original DOS 2.5. The 
patch apparently conflicts with the memory location used by 
SETUP.COM to store the RS232 handler. I tried to setup an autoboot 
modem program and couldn't get the handler to load when created with 
DOS 2.5XL. 

Otherwise, DOS 2.5XL seems great! It puts the entire DOS-DUP 
system into the unused area of memory in the lower 64k of the XE/XL 
machines. With an XE you can then erase the DOS and DUP from the 
ramdisk and free up the entire 499 sectors for storage. You can still call 
up DOS at any time with no further disk reads. 

PANZER GRENADIER 

Panzer Grenadier (SSI, $40) is Roger Damon's latest work. He's 
still perfecting the game system he developed with Operation Whirlwind 
and carried through Fire Fight. Five scenarios, each with three levels of 
difficulty give this novice to intermediate level game (in complexity) 
enough challenge to keep the experts busy, too. 

The scenarios are all WW2 Eastern Front scenarios for one player 
commanding the Germans against hordes of Russians. The line-of-sight 
rules for the human player seem more realistic than in his previous games. 
Once in awhile you get a shot you might not expect. And the Russians 
seem to be able to fire through any obstruction to get at you. 

The maps are plenty large enough for the units commanded. Terrain 
consists of woods, towns, rivers, hilltops, rough ground and clear. Units 
include assault guns, tanks, anti-tank guns, mortar, rifle and machine- 
gun units. 

Turns are divided into phases for friendly fire and movement, and 
separate phases for enemy fire and movement. You command units of 
company, platoon and section size. The units on the map may be removed 
at any time to see the terrain. The Option key will toggle the units back 
onto the map. 

Certain foot units can mount half-tracks and trucks for more 

ection (in the case of half-tracks) and mobility. Foot units can "dig 
in" for greater protection on the ground. Tanks can also overrun enemy 
units, and infantry and pioneers can assault enemy targets by attempting 
to enter their space. Pioneers may also re-build destroyed bridges. 

The 8-page manual includes scenario descriptions, as well as 2 pages 
of drawings and descriptions of the weapons used in the game. At the 
highest level of difficulty, this game takes a lot of skill to win. 

BASIC XE 

OSS has expanded their product, Basic XL, to take advantage of the 
extra memory in the XE machine. It's a lot of fun to load, in a program, 
read the result from PRINT FRE(O) and see 17000. Then type "EXPAND" 
in direct mode. Now a PRINT FRE(O) might show 31000! And a PRINT 
FRE(1) might show another 51000! What has happened? Well BASIC XE 
moves your program into the upper 64k RAM when you type EXPAND. 
The lower 64k is used for program variables. With the FAST command 
in your program, OSS claims an execution speed increased by 2 to 6 
times. 

The product comes on a super-cartridge and disk. You can use any 
DOS, and if you copy certain files onto your boot disk you'll be able to 
do such things as renumber your program, perform sort operations and 
speed up program execution, among other things. 

When I first used the product, I automatically tried to call up a DOS 
menu to see what I had on the disk. Well, you can't do it from the supplied 
disk. But you don't need to! All, or most, of the DOS menu items are 
easily and quickly accessible from within BASIC XE. You can load and 
save binary files. You can read directories, delete, protect and unprotect 
files. You can rename files. 


The manual contains well over 100 pages, including some 
information reprinted with permission from the Atari Basic Manual. BASIC 
XE is supposed to be fully compatible with all Atari Basic programs. But 
I tried to run one without modification which failed when it tried to read 
string data into memory during the initialization routines. This occured 
both with the upper 64k in use and without. I haven't gone into the code 
or the BASIC XE manual to see what there is about these strings which 
needs changing. BASIC XE supports several string functions not found 
in other Basics available for the Atari. LEFT$, MID$ and RIGHT$ are 
supported. FIND is used to determine if a given substring is in a given 
larger string. HEX$ will convert a decimal number to hex format. 

The manual discussions of graphics and player-missiles is much more 
complete than is found in the Atari Basic Manual. Added Basic statments 
include PROCEDURE, IF...ELSE, WHILE...ENDWHILE, AND PRINT USING. 
Discussions are accompanied by many little programming examples. The 
5-page index and 5-page table of contents make it possible to find 
anything you need quickly. If you use an Atari 130 XE, this product will 
expand your horizons. 


GAMES PEOPLE PLAY 

Games People Play, 112 East Market St., York, PA 17401, has made 
a special deal for members of A.C.E. They've given us their 3 disk sides 
of material plus documentation together with permission to distribute 
these items to members. Then any A.C.E. member can sign up for their 
BBS at half price: $15 and receive 5 free hours on the service. They 
charge $6/hour. 

GCP is a graphics BBS for 8-bit Ataris only. I guess if other computers 
call, they get only text? The disks contain maps of the city and the games 
(I saw BIOWAR, CYBER SHIP, and CYBER TANK). You can use the joystick 
to move your personal graphic character down the streets of the town. 
Go to the postoffice and read mail. Go to a telephone booth and chat 
with another user. Go into doors for system help, and to go to the games 
area of town. The town is walled, so you have to go into a door to exit. 
Commands may be given by keyboard if you're all the way across town 
and don't want to walk (shades of teleportation!). 

The BBS may be reached by a local number through Telenet, or some 
such service. You configure your boot disk with the local service you'll 
use, and the disk automatically completes all dialing and log-on 
procedures except your personal password. After you get the disks and 
documentation from us, give GCP a call and enjoy! 

— Jim Bumpas 


REMEMBER 
NEXT MONTH 
WE ARE HAVING 
OUR ANNUAL 
SWAP MEET 
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STuff 

Jim Bumpas 
A.C.E. ST Librarian 
4405 Dillard Road 
Eugene, OR 97405 

We presently have the following items as of October 25, 1985: 

ST Writer (an enhanced AtariWriter) — including a lot of support and 
configuration files — 232k 

NEO-Chrome (an excellent drawing program) — 32k 
SLIDENEO.PRG and EFFETS.PRG to show *.NEO & \PIC files - 2k 
*.NEO and *.PIC (about 20 files of 32k each) 

WINDOW.NEW uses *.PIC files to select pictures for showing 
(includes *.PIC files) — 332k 
Low-Res Demos — 524k 
Med-Res Demos — 519k 
Hi-Res (monochrome) Demos — 283k 
Utilities (ramdisks for half-meg & 1-meg systems) — 210k 
If you want our disks, let us know which ones. Until we get a lot 
of disks, I'll try to cusomize them for you. Send us $15 ($20 for a double¬ 
sided disk) and let us know which files you want. 

— Jim Bumpas 

ST WRITER 

ST Writer has some new features not found on the 8-bit Atari Writer. 
One of the most interesting is the option to receive a file from an 8-bit 
Atari using the 850 interface. No modem or software is required, but 
you do need to cable from the 850 into the RS232 port on the ST. Once 
the Receive option is selected, use DOS to copy the file to the R: device. 
Or, you can use Atari Writer, or any word processor which will write a 
file to any device, and write the file to the R: device. Voila! 

The file moves at 9600 bps! This is the maximum the 850 interface 
handles. The computers could do it at 19,000+ bps. 

If you use a monochrome monitor you have an option which is really 
fantastic. You can display double the normal lines of text AND edit in 
this super mode. Just think: No extra hardware to buy, or special 
configuration software. And you can display enough text to show nearly 
a complete 8.5x11” page. The characters are just as clear and easy to 
read as the larger ones. They're about the same size as normal typing 
on paper. You'd have to spend more money than it takes to buy an Atari 
ST system just to give you the same capability on a PC-DOS machine. 
This machine will make a bigger impact on the business market than 
any machine since the introduction of PC-DOS machines. 

Searches may include carriage returns in the search parameters 
which allows for much more flexible search and replace operations than 
I've previously seen in a program. This is a feature I've not seen in word 
processors even for the IBM. Another nice feature not found on the Atari 
Writer options menu is the "Transform Colors” option. This switch 
toggles between black writing on a white background (which I prefer) 
and white writing on a black background. Color is used in other ways, 
too. Carriage returns and control characters are red, for instance. It's 
really exciting to run up the program and see I have 164k for a text buffer! 

I can put the whole Newsletter in one file! There is a print preview option 
which permits you to see your text just as it will appear on paper. It might 
be nice if, as the program is improved, that this feature be integrated 
into the editing mode. On-screen underlining might also be nice. ST Writer 
is being distributed with each Atari ST sold now, so if you don't have 
yours, contact your user group librarian and request a copy. Atari is 
retaining the copyright, but they've given us permission to distribute it 
as widely as we desire. 

NEO-CHROME 

Neo-Chrome is another great Atari Corp. program which is being 
distributed freely to users. Again, Atari is retaining the copyright. All 
distribution is with Atari permission. Neo-Chrome v.0.5 is the latest 
version we have, and it's great! My father-in-law is visiting us and he 
always enjoys the drawing programs we've had. Two years ago when 
he was here, all we had was the 8-bit system. He played with it, but it 
wasn't interesting enough for him to want one for himself. He's a 
commercial artist. He's buying an Atari ST primarily on the strength of 
the possibilities he's been shown by the operation of this Neo-Chrome 
program. That's how good it is. And the promise for the future is even 
greater. 
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You can draw on a full screen, or on a half screen with the options 
menu at the bottom. There is a "grabber” function permitting you to 
move the picture around so you can work on a critical area and keep 
the menu on-screen. There are no figure-drawing functions yet (li 1 
circles, ellipses, etc. and this is an obvious need in the program). [ 
there are well-implemented copy, cut, paste and move functions. Yo^ 
can use these options to re-locate parts of your picture from one part 
of the screen to another. You can also mark a part of a picture (up to 
a half-screen), then load in another picture file and past the old half¬ 
screen on top of the new picture. Shades of overlay! And cell drawing! 
There's a wide selection of brush strokes and another whole mode called 
"nozzle” with which you can get a simulated "airbrush” effect. Used 
for shading, you can make it as light or heavy as desired by varying the 
speed of the mouse as you draw. There's a Text mode with which you 
can place text in your drawing. You have a half-dozen or so font styles 
which can each be displayed in one of another half-dozen or so sizes 
on the screen. There's an "expanded” text mode which seems to invoke 
the european character set. 

One exciting feature permits a kind of simulated "animation”. The 
colors can be shifted (YOU can control the speed of the shift). The well- 
known waterfall picture demo can now be seen with the water cascading 
down the falls. Very exciting. Graham Smith is working on a volcano with 
a lava flow. It should be possible to show moving figures, too, using this 
feature. 

You have a palette of 16 colors with which to work at all times. The 
menu options permit selection of any one of the 512 colors by placing 
them into the pots on your palette. One interesting note: These 
computers can really only display 16 colors at one time. However, the 
speed of this processor and the screen refresh rate permits one to create 
the "illusion” of all 512 colors on the screen at one time. The "box” from 
which colors are selected contains all these hundreds of colors which 
can be seen at one time. This is a great program with which to begin 
unleasing the power of the Atari ST. And the price is right! PS: The cover 
graphic this month was drawn by my father-in-law, Harry Franz. He's a 
commercial artist, but he's never really cared for computers before. He's 
seen my 8-bit Atari in the more than 4 years since I've had it. But he's 
just purchased an Atari ST on the strength of this admittedly unfinished 
program, NEO-Chrome, which he used to draw the turkey. 

News and Reviews 

by Mike Dunn, Co-Editor 

Well, the rains have come to Oregon, the sun is gone until spring 
and the fly-fishing season is over, so back to work on the newslett 

The Atari continues to grow in support, more and more independet_ 

reviewers are impressed with the ST, and the STs are selling well. 
Software is becoming more available for the ST, and much is still coming 
out for the trusty old 8-bits. Many are converting their 8-bits to 256K 
and their ST to 1 Megabyte; we will hopefully reprint the directions on 
how to do it as found in other user group newsletters. See Jim Bumpas' 
article on the latest in ST news. 

Home Computer Magazine (POB 70288, Eugene, OR 97401, $25 
year) is a Eugene based computer magazine which started as a Tl 99/4 
newsletter, and has grown to a huge 146 page tome without any 
advertising, filled with articles and many programs. Often the same 
program will be given for the Apple, Commodore 64, IBM-PC, and now 
the Atari. The current issue has Atari programs like "The NanoProcessor”, 
a program simulating your computer's inner workings, and teaches you 
the principles of programming a simple machine language computer; 
"The Plains of Salisbury”, a graphics adventure war-game in Camelot; 
"Vital Signs”, a simulation of your cardiovascular system, as well as many 
well written reviews and the "Programmer's Window” carefully 
explaining how and why the programs in the newsletter work. Very 
Impressive, worth getting. 

As mentioned in previous newsletters, PaperClip, the highly 
reviewed word-processor from Batteries Included, seemed to have a few 
strange bugs in it. It lost charactors when you typed very fast, and the 
cursor sometimes went crazy when deleating and end up in the middle 
of the page. I have just received a new version, 1.1, which seems to have 
corrected these problems. All this excellent product needs now is a 
spelling checker. 

Broderbund Software and it's Synapse division continues to pour 
out Atari software at a staggering rate. The last remaining large game 
software house seems to have faith in us to contiunue to buy their fine 
products. Released this month, and to be reviewed in this and the next 
issues of ACE, are included the long-awaited Championship Lode 
Runner, Karateka a cinema-like Karate game, two more "Electronic 
Novels” from Synapse, and more. The reviewers have them now, and 
they will be printed when received. 



VP RAMBLINGS 

Here we are into November and turkey day is almost upon us and 
the Atari scene looks good. More and more software and hardware is 
being made available to all of us. A number of people have made memory 
■'nhancements for all the 8 bit machines. In fact we will have one is use 
our BBS in the very near future together with a new 2400 baud 
_.odem. 

Many of you seem to have trouble either getting on the BBS or once 
on how to use the different functions. When you go to log on the BBS 
enter your name, phone no., and a 4 letter password. After hitting the 
RETURN key a prompt appears to ask if everything is the way you want 
it and you must answer YES if it is and NO if it is not. If YES then it 
will check if everything is all right and then let you on the board. If NO 
you will be allowed to do it over again and only when it gets a YES will 
it go on and let you on the board. Once on most everything is menu driven 
and easy to follow except how to send messages. If you just remember 
these 2 signs you will have no trouble. The first is /A, this one allows 
you to abort your message. The second is /S and this one sends your 
message to where you want it. Remember these two prompts and you 
will have no trouble with the BBS. 

The BBS is now working so well that it even scares me. I think we 
have one of the finest in the country and if you haven't tried it or haven't 
tried it in a long time I think you will be in for a surprise the next time 
you use it. If you have any ideas which might make it even better leave 
me a message and I will see what I can do to follow your idea. 

As we go into the holiday season remember to give thanks that we 
can have computers, modems and all the other things that make 
computing what it is and enjoy it all in the company of our fellow 
Atarians. 

— Larry Gold 

LODE RUNNER'S RESCUE 

LODE RUNNER'S RESCUE by Josh Scholar, from Synapse. A 
challenging 3-D game, with easy to use game editor. My son and his 
buddys like this game. They had even had more fun, when they found 
out by using the game editor to win the game. 

Now here's the name of the game. The Lode Runner has been 
captured by the minions of the evil Bungeling Empire and you, his brave 
daughter, must save him! he's imprisoned in a cell deep within a labyrinth 
of 46 mazes. Each maze holds many keys, that you must collect while 
you are avoiding guards. These keys will let you out of each of 46 mazes. 

The screen editing Option. This is an icon-driven screen which will 
let you make your own game screens. The 16-page instruction book 
wering the game editor is very good. It is easy to understand how to 
->e the icons. This 3D game editor, will let you hide keys behind walls, 
“in pits; to use trapdoors, elevators; to put it in rivers and magic 
mushrooms; etc. You also can put in restart goals to a new part of the 
screen if you bite the big one or to catch a magic cat to give you a new 
life. You can save up to 46 screens per disk, for a game of your own 
design. 

It has a playtest mode so as you make your screens, you can see 
if it will work. Well that just about covers it for my first review except 
to say that I liked the game. PS: It's a one player game. 

- D.Young 

WALDEN'S C 

Recently when I was working on an update for DVC, I wanted to 
know how many bytes a file had in the last sector. I also wanted to know 
exactly how large the file was. The program FSIZE.C returns the number 
of bytes, the number of sectors, and how many bytes are in the last sector 
of the filename. The function inverseO at the end of the program is a 
handy little function for converting strings to inverse. It is fairly common 
for C programmers to build up a large library of small functions like this, 
which can then be included in the LNK file. 

Ralph Walden 

FLEA MARKET 

This year's pre-Christmas flea market to benefit WISTEC will be at 
our December meeting. If you have anything you wish to sell (original 
software and/or hardware) contact Larry Gold and give him your $5.00 
donation. WISTEC will issue you a receipt for tax purposes. 

C-AMIGA 

The Commodore AMIGA will appear at our November meeting. Come 
see the third personal computer entrant in the 68k sweeps (after the 
Mac and the Atari ST). We'll have the Atari ST there, too, so you can 
compare the two systems. 


1200 XL TO 800 OS 

(Reprint: RAM, September 1985) 

Bummed out with the hassles built into the 1200XL OS? Wanna burn 
your translator disks, but can't shell out the $80 for a Boss? Follow these 
simple instructions to replace the nasty 1200XL OS with the nice old 
400/800 OS, for $16.50 or less! 

1. Pull the Rev.B ROMs out of the motherboard of a 400, or from 
the 10k ROM board of an 800. Make sure the chips function properly! 

2. If you can't find a set of ROMs, order them from: American TV, 
15338 Inverness St., San Leandro, CA 94579, 415-352-3787. They 
charge $16.50 (including shipping) for the chips. 

3. At this point you should have three chips, marked C012399B 
C012499B and C014599B. 

4. Place the C014599B piggyback on the C012499B chip with the 
notched ends facing the same direction. Solder pin 1 to pin 1, pin 2 to 
pin 2, etc. for all 24 pairs of pins. 

5. Open the 1200XL using a small Phillips-head driver on the screws, 
and a needlenose pliers to pull the pop rivets holding the RF shield 
together. This step is completely non-destructive: There is nothing to 
cut, unsolder or mutilate. 

6. Locate the two 24-pin ROM chips on the 1200XL board near the 
cartridge slot. Notice they are marked U12 and U13 in white letters on 
the board. Notice also which way the notched ends of the chips are 
facing. 

7. Remove these ROM chips and give them to someone you don't like. 

8. Pop the chip marked C012399B into the slot marked U12, with 
the notch facing in the proper direction. Place the piggyback chips in 
slot U13, with the notches properly oriented. 

9. Test the board before putting the 1200 together again. 

You now have an 800 with a 1200 keyboard, the best of both worlds. 
This modification was created by Brent Borqhese of Atari Computer 
Enthusiasts of Columbus, Ohio, courtesy of the Dr. Download BBS, 
featuring 300/1200 bps access to 3 Mb of public domain programs. Call 
614-587-3774, 24 hours daily. No password, no time limit. Just huge 
phone bills. 


Battalion Commander 

$40 by Strategic Simulations Inc., 1985 

Battalion Commander is an expanded version of Combat Leader, 
although in many ways not as challenging. The variables which may be 
altered in this version are fewer, primarily terrain. One of three armies 
(Soviet - U.S. - Chinese) may be chosen, and one of four campaigns 
(Pursuit & Exploitation - Meeting Enagement - Attack - Defense). The 
maps, and there are 40 of them, are twice as large as those in Combat 
Leader. This gives you quite a lot of territory in which to manuever. 

Each game, Attack, Defense etc., has a set number of units, which 
you may not vary, other than in the relative strengths as presented in 
a percent ratio. One of the nice things about the game is that each unit 
is based on the actual figures for a unit of that type in modern U.S., Soviet 
or Chinese armies. In the back of the instruction manual you will find 
an appendix which breaks down each unit into title and weapons, both 
light and heavy. This gives you an understanding of the relative firepower 
of each unit. A second appendix gives you a breakdown in the number 
and type of vehicles available for each unit. The third appendix lists the 
40 terrain maps and gives a break down of their features. 

All of these variables, and the general game mechanics are listed 
in a nice instruction manual. A typical SSI job, clean and easy to read, 
with extra bits of interesting information placed at the end of each 
section. The game mechanics are almost identical to Combat Leader, 
so anyone familiar with that system should have no trouble. 

In play you are allowed to control an individual company or to simply 
maintain a battalion level control. In either case you can only tell your 
units how to go to a general area. In each game I've played I have found 
units trying to move through the enemy lines just because that was the 
easiest route, taking into account terrain. The only way to avoid this is 
if you move your units in small increments, and since this is a real time 
game you are giving the computer a big lead. You may target your units 
by company unless you have taken over a specific company. Then you 
may target individual units. I have often given my company commanders 
fire orders and have had no results, until I took personal command of 
the company. Some of this may be due to the fact that it is difficult to 
determine line of sight for your units. 

Despite the problems I have just stated, and the fact that I don't find 
this game to be as challenging as some others I have played by SSI I 
still recommand any person interested in war games to check this one 
out. The problems mentioned, while frustrating can also be viewed as 
a challenge, and in general this game is up to SSI's high standards. It 
will certainly give you many hours of enjoyable play time. 

— Nick Chrones 
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SORT NUMBER BASIC 


8 REM ...... FILE: SORTNUM.BAS 

18 REN 

188 GOSUB 1888:REM 
288 GOSUB 2888:REM | 

388 GOSUB 3888:REM 
358 END 
488 REM I 


WHICH, U, GET DATA 


GRT THE DATA 


PRINT ELAPSED TIME 


888 POKE 764,255 

818 IF PEEK(764)=255 THEM 818 

828 KEY=PEEKC764) 

838 POKE 764,255 
848 RETURN 
888 REM | 


TIMER ROUTINE 


FROM LAST ISS UE 

2888 IF TYP$="M" THEN GOSUB 488 
2818 IF TYP$="B" THEN GOSUB 588 
2828 IF TYP$="H" THEN GOSUB 688 
2988 RETURN 
2998 REM | 


M,L. BULBlESuRT 


EC LENGTH-6, WANT ASCENDING 


418 REM 

428 POKE 283,8;POKE 284,4 
438 REM S 

448 POKE 285,6:POKE 286,8 
458 REM 

468 A=USR CARR(SORTS),APR(NUNS)+18,N) 
478 RETURN 
588 K-N 
518 T=8 

528 FOR 1=2 TO K 

558 IF SCI-1)>5(I) THEN T=I:M=SCI-1):5 

(I-i)=S(I):S(I)=H 

578 NEXT I:? 

575 K=T-l:IF K)1 THEN 518 
588 ? :RETURN 
585 REM H 

zmma 

I 

688 R=N 

618 FOR LL=INT(N/2) TO 1 STEP -1 
628 HOLD=S(LL) 

638 GOSUB 688:NEXT LL:LL=1 
648 FOR R=N-i TO 1 STEP ”1 
658 MOLD=S(R+l) 

668 5(R+JL)=5(i) 

678 GOSUB 688:NEXT R:? :RETURN 

688 J=LL 

698 I=J:J=2*J 

788 ON 2+SGNCJ-R) GOTO 718,728,738 

718 IF SCJXSCJ+I) THEN J=J+i 

728 IF HOLD<S(J) THEN 5(I)=SCJ):G0 TO 

698 

738 H0LD2=H0LD:H0L8=5(I):5(I)=H0LD2:? 

RETURN 
788 REM H 


GETKEY ROUTINE 


988 OLDTIME=TI)£ 

918 FLA6=1-FLAG 

928 TI*=PEEK (28) +256*(PEEK(19) +256*PE 
EKC18)) 

938 TIME=INT(1888*TIME/68)/1888 

948 ELAPSE=TINE~OLDTINE 

958 ? “TIME = TIME 

968 IF FLAG=8 THEN ? "ELAPSE = ";ELAPS 

E 

978 RETURN 
988 REN | 


TION ROUTINE 


1888 ? CHR$(125) 

1818 POKE 712,8 

1828 POKE 718,4+16*INT(16*RN0(i)) 

1838 POKE 789,12 

1188 DIM TYPS(1),NUM$(4),5(999),SORTS( 
126) 

1185 GOSUB 6888 

1118 ? ;? “Which sort to execute?" 

1128 ? ;? “(8) Bubblesort" 

1125 ? :? “(M) M.L. Bubble" 

1138 ? :? "(H) Heapsort":? :? 

1148 GOSUB 888 

1158 IF KEY=21 THEN TYPS="B" 

1155 IF KEY=37 THEN TYP$="H" 

1168 IF KEY=57 THEN TYP$=»H" 

1178 IF TYP$<>"B" AND TYP$<>"M» AND TY 

P$<>"H" THEN GO TO 1148 
1288 ? :? :? "Ho* wany iteus do you va 
nt to sort" 

1285 ? "Max = 999, MiniHUW = 18" 

1218 IMRUr HUMS 
1228 TRAP 1218 
1238 N=VAL(NUM$) 

1248 IF N<18 THEN 1285 

1258 IF N>999 THEN 1285 

1268 N=INTCN):TRAP 34567 

1848 OPEN HI,4,8,"D:NUM1888.RAN" 

1858 FOR 1=1 TO N 
I860 INPUT HI,A 
1878 S(I)=A 
1888 NEXT I 
1938 GOSUB 988 
1988 RETURN 
1998 REM | 


PRINT RESULT 


3888 GOSUB 988 
3850 GOSUB 880 
3188 FOR 1=1 TO 
3158 ? I,S(I) 
3288 NEXT I 
3988 RETURN 

6888 rem 

6818 REM | 

6828 REM j 
6030 REM (3 


cxawple assuwes record 


5 $, nuMber of record 


eed to POKE starting and 


6848 rem 
6058 REM 
6868 REM ! 
6878 REM 
6888 REM 


of SORT key Pius total recrdi 


6898 rem i W 

6128 REN 
6125 ? " 


One Moment please.. 


6138 FOR 1=1 TO 126:READ A 
6148 SORTS(I)=CHR$(A):NEXT I 
6158 RETURN 

6168 DATA 184,104,133,217,104,133,2Xxr^ 
6178 DATA 184,133,289,184,133,288,169 
6188 DATA 8,133,218,133,287,162,1 
6198 DATA 165,216,133,214,165,217,133 
6280 DATA 215,24,165,214,133,212,101 
6218 DATA 285,133,214,165,215,133,213 
6228 DATA 185,8,133,215,164,283,165 
6238 DATA 286,248,18,177,214,289,212 
6248 DATA 144,44,240,12,176,19,177 
6250 DATA 214,289,212,144,13,248,2 
6268 DATA 176,30,208,196,204,248,227 
6278 DATA 176,23,144,223,169,1,133 
6288 DATA 218,164,285,136,177,214,72 
6290 DATA 177,212,145,214,184,145,212 
6388 DATA 192,8,288,241,232,224,8 
6318 DATA 208,2,230,207,228,208,288 
6328 DATA 172,165,289,197,287,288,166 
6338 DATA 165,218,281,8,288,144,96 
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COMPUTER ASSISTED DESIGN 


H Q$(13:GQT0 1288 
3^XH K(33,23 

5 DIM CIRC (38,2) ,OLD (38,23 

6 DIM COLOR$U3,RF(303,VH(381 

7 PI=22/7:ARC=(PI/23/98 

8 GOSUB 9588:GOSUB 9288:RETURN 

12 GOSUB 7888 

13 C=(RND(83*143+1 

14 5ETC0L0R 2,C,8 

15 5ETC0L0R 4,C,8 

16 5ETC0LOR 1,0,8 
38 ? CHR$ (1253 

48 ? 



50 ? 


52 RETURN 
198 C=RND(83*16 
118 GRAPHICS 8+16 
128 5ETC0L0R 1,C,8 
138 5ETC0L0R 2,C,18 
148 SETCOLOR 4,C,10 
145 COLOR 1 


419 IF PEEK(532793=5 THEN GRAPHICS 8:6 
OTO 1288 

428 IF 5-15 THEN 480 

438 IF 5-14 THEN CIRC(PRES,23 =CIRC(PRE 

S,23-1;GOTO 888 

448 IF 5=13 THEN CIRC(PRES,23=CIRC(PRE 
5,23+i:GQTQ 888 

458 IF 5=11 THEN CIRC(PRES,13=CIRC(PRE 

5.13- 1:60T0 888 

468 IF 5=7 THEN CIRC (PRES,13=CIRC(PRES 
,13+1:GOTO 808 

478 IF 5=6 THEN CIRC(PRES,13=CIRC(PRES 
,13 +1:CIRC(PRES,23 =CIRC(PRES,23-1:GOTO 
888 

475 IF 5=5 THEN CIRC (PRES,13=CIRC(PRES 
,13 +1:CIRC(PRES,23 =CIRC(PRES,23 +1:GOTO 
888 

488 IF 5=9 THEN CIRC (PRES,13=CIRC(PRES 
,13-1:CIRC(PRES,23 =CIRC(PRES,23 +1:GOTO 
888 

485 IF 5=18 THEN CIRC(PRES,13=CIRC(PRE 

5.13- 1:CIRC(PRES,23 =CIRC(PRES,23-1;GOT 
0 888 

499 GOTO 408 
688 PRE5=PRES+i 

618 IF PRE5=H0R5+1 THEN GOTO 690 
628 RUB=PRE5-1 
638 IF RUB=8 THEN RUB=HORS 
648 COLOR 2 


9.23 

845 ORAMT0 CIRC(PRE5-1,13,CIRC(PRE5-1, 
23 .'RETURN 

858 COLOR 2:PLOT OLD(PRES,13,OLA(PRES, 
23 

851 DRAMTO QLD(PRE5+1,13,0L1>(PRE5+1,23 

854 COLOR 1:PL0T CIRC(PRES,13,CIRC(PRE 

5.23 

855 DRAMTO CIRC(PRES+i,13,CIRC(PRE5+1, 
23:RETURN 

890 OLD(PRES,13 =CIRC(PRES,13 

895 QLD(PR£S,23=CIRC(PRE5,23:GOTO 488 

988 GOSUB 188:G0SUB 4888 

918 GOSUB 3888 

928 FOR T=1 TO HORS 

938 ERROR- PLOT 160+CIRC(T,13-1683*K 
(1,13,VM(T3 +RF(T3*K(1,23 
948 FOR 0=1 TO 33 

958 X=168+(CIRC(T,13-1683*K(0,13:Y=VM( 
T3 +RF(T3*K(0,23 

965 IF Y<8 OR Y>191 THEN B=1;G0T0 999 

970 IF B=1 THEN PLOT X,Y:B=8 

988 ORAMTO X,Y 

999 NEXT 0:NEXT T 

1088 C=(2*PI3/MERT 

1885 FOR X=8 TO (2*PI3-C STEP C 

1086 5X=5IN(X3:CX=C0S(X3 

1818 FOR J=i TO H0R5-1 


1*0 RETURN 
GOSUB 100 

tm9 FOR L=1 TO HORS 
218 015=(158/(H0R5-13 3 
228 CIRC(L,13=188 
238 CIRC(L,23 = ((0IS*L3“0153+21 

235 OLO(L,13 =CIRC(L,13 

236 OLO(L,23 =CIRC(L,23 
248 NEXT L 
258 RETURN 
308 FOR 0=1 TO HORS 
328 PLOT CIRC(0,13-48,CIRC(D,23 
338 NEXT 0 

335 PLOT 168,0:ORAMTO 168,191 

336 GOSUB 608 

348 PLOT CIRC(1,13,CIRC(1,23 
368 FOR 0=2 TO HORS 
378 ORAMTO CIRC(0,13,CIRC(0,23 
388 NEXT 0 

488 IF STRIG(83 =6 THEN GOSUB 608 
418 S=5TICK(03 

415 IF PEEK(532793 =6 ANO VERT>1 ANO AN 
6)8 THEN GOSUB 7888:G0T0 988 

416 IF PEEK(532793=6 ANO ANG<i THEN 12 
08 

417 IF PEEK(532793 =6 ANO MERT<1 THEN G 
RAPHICS 8:G0T0 1208 


658 PLOT 130,0:ORAMTO 130,191 
660 COLOR 1 

678 PLOT 130,CIRC(PRES,23 
685 RETURN 

690 COLOR 2:PLOT 130,8:ORAMTO 138,191: 
PRE5=i 

691 PLOT 148,8:ORAMTO 148,191:COLOR 1 

695 FOR T=i TO HORS 

696 PLOT 148,CIRC(T,23:NEXT T:GOTO 628 

888 IF CIRC(PRES,23<=8 THEN GOSUB 9888 

:CIRC(PRES,23=1:GOTO 488 

885 IF CIRC(PRES,23 >=191 THEN GOSUB 90 

08:CIRC(PRES,23=198:GOTO 488 

818 IF CIRC(PRES,13)=168 THEN GOSUB 98 

80:CIRC (PRES,13=161:GOTO 408 

828 IF CIRC(PRES,13)=319 THEN GOSUB 98 

80:CIRC(PRES,13=319:GOTO 488 

825 IF PRE5=1 THEN GOSUB 858:GOTO 898 

838 IF PR£5=H0R5 THEN GOSUB 848:GOTO 8 

98 

835 GOSUB 848:GOSUB 850:GOTO 898 

848 COLOR 2:PL0T QLD(PRE5,13,OLO(PRES, 

23 

841 ORAMTO OLD (PRE5-1,13,OLD(PRE5-1,23 
844 COLOR 1:PL0T CIRC(PRES,13,CIRC(PRE 


1028 RD1A=CIRC(J,13-168 

1038 RD1B=CIRC(J+l,13-160 

1888 X1=160+RD1A*CX:YI=VM(J3 +RF(J3*5X 

1898 X2=168+RD1B*CX:Y2=UM(J+13 +RF(J+13 

*5X 

1188 IF Y1<0 THEN Yl=8 

1118 IF Yi)191 THEN Yl=19i 

1128 IF Y2<8 THEN Y2=8 

1138 IF Y2)191 THEN Y2=191 

1148 PLOT XI,Y1 

1158 DRAMT0 X2,Y2 

1188 NEXT J:NEXT X 

1185 GOSUB 5880 

1198 IF 5TRIG(83=1 THEN 1198 

1288 GRAPHICS 8:GOSUB 12 

1285 ? ;? " Construction lines TO 

ar 

1218 ? :? '* Change viewing angleSE 
SUB” 

1228 ? :? •• Go to drawing page m 

SB" 

1238 ? :? " Begin new design iili 

anf 

1248 ? :? " Draw current design 131 

ear* 

1242 ? :? " Help mJi 

0EE3" 
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COMPUTER ASSISTED DESIGN DON'T 



1256 5=STICK (83 

1255 IF PEEK(532753=3 THEM 18900 
1268 IF 5015 THEM 1380 
1278 IF STRIG(83=8 THEM 1440 
1280 GOTO 1258 

1390 IF 5=14 AMD H0R5>1 THEM G05UB 12: 
GOTO 1358 

1310 IF 5=13 AMD H0R5>i THEM G05UB 12; 
GOTO 1360 

1328 IF STICK(83=11 AND H0R5>1 THEM GO 
SUB 188:PRE5=H0R5:605UB 668:G05UB 7808 
:GOTO 335 

1338 IF 5=7 THEM 1488 
1340 GOTO 1250 

1358 ? :? :? :? " Number of lines i 
n current" 

1354 ? :? " design is VERT;"." 
1356 ? :? :? :? " Change to ";:IMP 
UT VERT:GOTO 1288 
1358 GOTO 1288 

1368 ? ;? :? :? " Angle of view in 
current" 

1362 ? :? " design is ";AMG;" d 

egrees." 

1364 ? ;? :? ;? " Change to;" 

1366 INPUT AMG:G05UB 3888;GOTO 1288 
1488 G05UB 12:? :?;?:? " Do you wan 
t a new design (Y/N3";:INPUT Q$:IF Q$= 
"M» THEM 1288 

1418 CLR :G05UB 8:G05UB 12 
1428 ? :? :? " How many construction 
circles";:INPUT H0R5:CIRCLE5=1;G05UB 2 
88 

1438 GOTO 1280 

1448 IF H0R5<1 THEM 1258 

1445 IF VERT<1 THEM G05UB 12:G0T0 1358 


4038 RETURN 
5808 50UMD 0,18,18,14 
5818 FOR X=1 TO 7 
5828 FOR T=1 TO 3:NEXT T 

5838 SOUND 1,28,18,14 
5848 FOR T=i TO 3:NEXT T 
5850 SOUND 1,38,10,14 
5860 NEXT X 

5978 SOUND 8,9,9,0 
5875 SOUND 1,8,8,0 
5888 RETURN 
7889 SOUND 9,18,10,14 
7810 SOUND 1,15,18,14 
7828 FOR X=1 TO 8:NEXT X 

7557 SOUND 8,8,8,8 

7558 SOUND 1,8,8,8 
7555 RETURN 

8080 IF CIRC(PRES,13>315 THEN C-IRCCPRE 

S,1)=315;G0SUB 5889:RETURN 

8018 IF CIRC (PRES,2)<8 THEN CIRC(PRES, 

23=1:GOSUB 5880:RETURN 

8828 IF CIRC(PRES,23>151 THEN CIRC(PRE 

S,23=15i:G05UB 5888:RETURN 

5880 SOUND 0,208,10,14 

5810 SOUND 1,288,6,14 

5820 FOR X=1 TO 8:NEXT X 

5839 SOUND 0,6,8,0 
5848 SOUND 1,8,8,0 
5858 RETURN 

5288 FOR D=1 TO 33 
5205 X=X*8.2 

5218 K(D,1)=COS(XI:K(D,23=SIN(X3 
5229 NEXT D:RETURN 
5580 GOSUB 12:X=0 

5518 POSITION 6,18:? "(Cl SAH SHALL AU 
G 1583 (V.2I" 

5528 POSITION 8,16:? 

CHS333EB'; 

5538 RETURN 


1450 IF ANG<1 THEN GOSUB 12:GOTO 1360 
1468 IF H0RS>1 THEN GOSUB 7088.‘GOTO 58 
8 

1478 GOTO 1258 
3808 FOR V=i TO HORS 
3885 A=58-ANG 

3818 IF CIRC(V,21<56 THEN H=56~CIRC(V, 
21:N=INT(H*SIM(ARC*A11:VNCVI=CIRC(V,21 
+(H-Nl:GOTO 3108 

3828 H=CIRC(V,21-56:N=INT(H*SIN(ARC*A3 

3:VH(V1=CIRC(V,21-(H-N1 

3100 NEXT V 

3118 RETURN 

4808 FOR V=1 TO HORS 

4885 G=CIRC(V,11-168 

4818 RF(VI=IMT(G*SIN(ARC*AN631 

4020 NEXT V 


10008 GOSUB 12 

10818 ? :? "(13 CLOAD and RUN." 

10028 ? "(23 HEMU displayed." 

18830 ? "(33 All functions are locked 
out. except 'new design*. 11 
18940 ? "(43 Select 'new design'." 
10858 ? "(53 ‘New design Y/N* is disp 
layed for checking." 

10868 ? "(63 Program creates COS and 
SIN arrays for faster circle drawin 


SIN arrays 
3 " 

10878 ? "(7 
tion 

10888 ? "(8 
18858 ? "(5 
lable." 
18108 ? ;? 


Select how wany construe 
circles are required." 
Return to NENU." 

Drawing page is now avai 


Hag ebt; 

10185 IF PEEK(532751 03 THEN 18185 
16110 GOSUB 12 

10128 ? :? "£183 DRAWING PAGE" 
18138 ? :? " Select which segwe 


to be drawn 


ubber band' 


Select which segment 
with fire button" 

Joystick will then ‘r 
drawing line to the d 


irections are 


profile. All eight d 
supported and there a 


18168 ? 
gn if 


then draws desi 
other parameters have 


amaagoes back to n 


mwm "\ 

10158 IF PEEK(532753 03 THEN 16158 
18288 GOSUB 12 

16218 ? :? "(113 HAIM MENU” 

18220 ? :? " Attempting to 'draw 
current design without entering oth 
er parameters will result in" 

18248 ? :? " program asking for t 


hese entries." 

18258 ? ;? " 'Draw current design 

' will draw three-dimensional re 

presentation of drawn profile." 

18270 ? :? " 

ffima **: 

18275 IF PEEK(532753 03 THEN 18275 
18288 GOSUB 12 

18258 ? ;? :? :? "(123 PARAMETERS" 


'Construction lines 
Any number from 1 u 

'Angle of view* 

8 deg - eye level, 


pwards. 
10318 ? 


58 deg - overhead." 
18328 POSITION 4,29:? " 


10348 IF PEEK(532753 03 THEN 18348 
18358 GOTO 1288 
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0 REH 


REM . A frisk Utility Programme. 
-L REM . Copyright MAPSOFT Ltd. 

4 REM . By Ron Levy. 

5 REM Reprinted fro» the U.K Atari 

6 REM newsletter, Sussex, England 

7 REM by the &S 

8 REM 


ce Newsletter 


3662 Mine Maple, Eugene, OR 


37405 


S M H tXXKMM K XMMMMXMKMMMKXMMKMMM 


3 BUFF=1536:UNIT=1:POKE 783,15 
19 frIM FSC38),0PTS(18),H£K$(512),T$(16 
),NVALS(30),XS(4),YS(4),5ECT0R$ (10),frl 
SKSC5),B(7),BYTS(256) 

12 FOR X=1 TO 5:REAfr Y:frI5KS(X,X)=CHRS 
CY):NEXT X 

18 ? "STA6E 1" 

13 REM «< SET UP HEX CONVERTER »> 

28 T$="8123456789ABCfrEF" 

22 FOR X=i TO 256 

24 Y=INT C(X-l)/16);Y2=X~Y*16:Y=Y+1 

26 L=LEN(HEXS)+1:HEXS CL,L) =TSCY,YI 

27 L=LEN(HEXS)+1:HEX$ CL,L)=T$ (Y2,Y2) 

28 NEXT X 


38 C-53279:REM Consol Switches. 

33 ? "STAGE 2" 

48 REM << Set Up Character Array >> 

41 FOR BYT=1 TO 255:BYTSCBYT,8YT)=CHRS 
(BYT) 

44 IF BYT>26 AND BYT<32 OR BYT>124 ANfr 
BYT(128 OR BYT>154 ANfr BYT<168 OR BYT 
252 THEN BYT$CBYT,BYT)=CHRS(8) 

.6 NEXT BYT 

58 REM <<<< Create Display List >>>> 

52 fr=561!fr8=PE£K CD):Dl=fr8-1:frL=PEEK C56 
0)+fr0*256:frLi=frL-256 

53 FOR A=1 TO 6:P0KE frLi+A,PEEKCfrL+A): 
NEXT A 

54 FOR A=& TO 50 STEP 2:POKE frLl+A,8:P 
OKE frLl+i+A,2;NEXT A 

55 FOR A-52 TO 53:P0KE &Li+A,PEEK(frL+A 
-23):NEXT A 

56 POKE DLi+54,PEEKC561)~1 

188 REM <<<<<<<<< Main Menu. »>>>»> 
182 GRAPHICS 0:POKE 789,15;CMfr=8 
105 ? " Sector Utility." 


186 ? " 

108 ? " By Ron Levy.":? 

112 ? " frisk frirectory ...... <i>" 

114 ? " Load Sector . <2>" 

116 ? " Save Sector ......... <3>" 

118 ? » Edit Sector . <4>" 

120 ? " Exanine frirectory .., <5>" 
158 POSITION 13,20:? "Option —>»; 

168 CLOSE tt2:0PEN #2,4,0,"K:":GET #2,X 
.CLOSE #2 

178 X=X-48:IF X<1 OR X>5 THEN 188 


188 ON X GOTO 1060,2006,3000,4080,5000 


SECTOR 


288 FOR 1=1 TO SIZE 

1008 REM ««« frISK DIRECTORY »»» 

1828 GRAPHICS 8:POKE 703,15 

1108 TRAP 1600:OPEN »l,6,0,"fr:*.*" 

1118 INPUT m,F$:? F$;» "; 

1120 INPUT ttl,F$:? F$:GOTO 1118 
1688 CLOSE #1:INPUT XS:IF XS="" THEN 1 
80 

1630 GOTO 1800 

2088 REM <««« Load Sector >)>>»> 
2188 GRAPHICS 0:P0KE 709,15'.PRINT :TRA 
P 40008 

2118 ? " LOAD Sector Routine.":? 

2200 ? " Which Sector <HEX> —> "; 

2218 INPUT SECTORS:IF 5ECT0RS="" THEN 
PRINT :GOTO 2480 

2228 IF LEN (SECTORS)<>3 THEN 2888 
2238 I=ASCCSECTORSCl,1)):J=A5CC5ECT0R$ 
C2,2)):K=ASC CSECTORSC3,3)) 

2240 IF I<65 THEN I=I-48:60T0 2268 

2259 1=1-55 

2260 IF J<65 THEN J=J-48:G0T0 2288 
2270 J=J-55 

2288 IF K<65 THEN K=K-48:G0T0 2388 
2298 K=K~55 

2388 SECT=I*256+J*16+K 

2318 IF SECT<1 OR SECT>5728 THEN ? CHR 

$(253):GOTO 2088 


3270 J=J-55 

3288 IF K<65 THEN K=K-48:G0T0 3308 
3290 K=K-55 

3308 SECT=I*256+JW16+K 

3318 IF SECT<1 OR SECT>5728 THEN ? CHR 

$C253):GOTO 3888 

3328 SECTOR=SECT:GOSUB 18808:GOTO 168 
3348 GOTO 108 

3488 ? " Which Sector <frEC> —> "; 

3418 INPUT SECTORS:IF 5ECT0RS= M " THEN 
3588 

3438 TRAP 3488:5ECT=VALC5ECT0RS):TRAP 
40800 

3448 IF SECT<1 OR SECT>728 THEN ? CHRS 
(253);:GOTO 3488 

3458 SECTOR=SECT:GOSUB 18880:GOTO 180 
3508 PRINT 

3510 ? :? "Type * To SAVE Sector ";SEC 
TOR,*" 

3529 INPUT SECTORS:IF SECTORSO"* 11 THE 

N 106 

3538 ? :? "Ok. — SAVEing Now.,..";;G0 
SUB 10800:GOTO 108 

4880 REM <<<<<<< EfrIT SECTOR >>>>>>> 
4848 GRAPHICS 8:P0KE 799,15;P0KE fr,frl: 
TRAP 40880 

4858 ? "Sector)";;PRINT SECTOR 
4855 POSITION 14,8:? "File)"; 

4860 BYTE=PEEKCBUFF+125):GOSUB 11888 


2330 5ECT0R=SECT:GOSUB 10888;GOTO 180 
2480 ? » Which Sector <DEC) —) "; 

2418 INPUT SECTORS:IF 5ECTQRS="" THEN 
PRINT ;GOTO 2588 

2438 TRAP 2488:5ECT=VALCSECTORS):TRAP 
48800 

2448 IF SECT<1 OR 5ECT)720 THEN ? CHRS 
(253);:GOTO 2488 

2458 5ECT0P=SECT;GOSUB 18888:GOTO 188 
2588 ? "TYPE * TO LOAfr SECTOR ";SECTOR 

• it (It 
/ * 

2528 INPUT SECTORS:IF 5ECT0R$<)"*» THE 
N 199 

2539 ? :? "Ok. — LGAfring Now_»; 

2558 GOSUB 18000:GOTO 180 
3880 REM «<«« save Sector ))))))) 
3180 TRAP 48008:CMD=1:GRAPHICS 8:POKE 
789,15:PRINT 

3118 ? " SAVE Sector Routine.";? 

3288 ? " Which Sector <HEX) —) "; 

3218 INPUT SECTORS:IF 5ECT0R$="" THEN 
PRINT :GOTO 3480 

3228 IF LEN CSECTORS) 03 THEN 3898 
3230 I=ASC CSECTORS(1,1));J=A5C(SECTORS 
(2,2)):K=ASCCSECTORSC3,3)) 

3248 IF I<65 THEN 1=1-48:GOTO 3260 
3258 1=1-55 

3268 IF J<&5 THEN J=J-48:G0T0 3288 


4865 FILE=CBYTE-BCl)*2-BC8))/4:? FILE; 

4870 NXTSEC=PEEKCBUFF+126)+256*CBC1)*2 
+BC9) ) 

4674 IF PEEK CBUFF+127))127 THEN NXTSEC 
=0 

4875 POSITION 23,8:? "Next 5ec.)";NXTS 
EC 

4889 POSITION 8,1;? "S"; 

4885 K=INTCSECTOR/256):? HEXSCX*2+2,X* 
2+2);:X=SECT0R-K*256;? HEXS CX*2+1,X#2+ 
2 ); 

4899 POSITION 18,1:? "S";HEXSCFILE*2+1 
,FILE*2+2); 

4180 POSITION 32,1:? "S";:X=BC1)*2+BC8 
) 

4185 ? HEXSCX*2+2,X*2+2); 

4118 Y=PEEKCBUFF+126):? HEXSCY*2+i,Y*2 
+ 2 ) 

4168 ?" 01234567 8123 

4567"; 

4179 POSITION 3,3;? CHRS(17); 

4188 FOR X=1 TO 8 

4184 ? CHRS(18);CHRSC18);CHRSC32); 

4186 NEXT X:? "-»; 

4288 FOR L=0 TO 15 STEP 1 
4218 POSITION i,L+4:? L; 

4228 POSITION 3,L+4:? CHRSC124); 

4248 IF PEEKCC)=5 THEN 4389 










4249 POSITION 4,L+4 

4250 FOR PK=0 TO 7 

4270 BYT=PEEK (BUFF+PK+L*83 
4280 ? HEK$(BYT*2+1,BYT*2+2) ;" **; 

4290 NEXT PK 

4300 REH ... PRINT CHARACTERS ... 

4385 IF PEEK(C3=3 THEN 4480 
4309 POSITION 28,1+4 
4318 FOR CH-8 TO 7 
4320 BYT-PEEK (BUFF+CH+L*83 
4338 IF BYT=8 THEN ? CHR$(8);;GOTO 439 
0 

4350 PRINT BYT$(BYT,BYT); 

4390 NEXT CH 

4395 IF PEEK (0=6 THEN 4508 

4488 NEXT L 

4580 REM ...EDIT-IT,.. 

4518 ? ;POSITION 4,21:? "X Co-ord.->"; 

4516 INPUT X$;IF X$="" THEN 188 

4517 IF X$="H" THEN SECTOR=NXTSEC:CMD= 
0:GOSUB 10800:GOTO 4888 

4518 IF X$="P" THEN GOSUB 12888: CLOSE 
Hi:GOTO 4880 

4519 IF X$="+" THEN SECTOR=SECTOR+1:CM 
8=8:GOSUB 18008:GOTO 4888 

4520 IF X$="-" THEN SECT0R=5ECT0R-i;CM 
8=8:GOSUB 18800:GOTO 4808 

4522 POSITION 4,22;? »Y Co-ord.-->";:I 
NPUT Y$; IF Y$=»" THEN 188 
4524 TRAP 4508;X=VAL(X$):Y=VAL(Y$3:TRA 
P 48008 

4526 IF X<8 OR X>7 OR Y<8 OR Y>15 THEN 
4518 

4560 EDBYT=Y*8+X;POSITION 23,21:? "Seq 
= "jEDBYT 

4570 POSITION 4,22;? » 

4580 POSITION 4,22;? "New Value <HEX>- 

4598 INPUT NVAL$: IF NUAL$="" THEN 4788 

4688 J=ASC(NVAL$(1,1)1;K=ASC(NVAL$(2,2 
3) 

4618 IF J<65 THEN J=J-48;G0T0 4638 
4628 J=J“55 

4638 IF K<65 THEN K=K-48:60T0 4668 
4650 K=K~55 
4668 NBYT=J*16+K 

4678 ? NBYT,HEX$(NBYT*2+i,N8YT*2+2) 

4688 POKE BUFF+EDBYT,NBYT;GOTO 4888 
4788 POSITION 4,22:? "New Value <DEC>- 

4718 INPUT NVAL$:IF NVAL$="" THEN 4808 

4728 TRAP 4780:NBYT=VAL(NVAL$) 

4738 POKE BUFF+EDBYT,NBYTI TRAP 48808:G 
OTO 4808 


4880 POSITION 4,22;? " 

**# 

4885 POSITION 4,22;? "New <STRING> »; 
4810 INPUT NVAL$: IF HVAL$="" THEN 189 
4820 FOR X=1 TO LEN(NVAL$) 

4838 POKE BUFF+EDBYT+X-1,ASC(NVAL$(X,X 
33 

4859 NEXT X:GOTO 4888 
5880 REM <«< Exanine Directory >>>> 
5820 GRAPHICS 0:P0KE 789,15;TRAP 48880 
:CNT=9:CLOSE HI 

5838 IF PEEK(C3 =7 THEN OPEN Hi,8,8,"E: 
11 ;POKE 709,15:P=8;P0KE D,Di:GOTO 5108 
5848 TRAP 180;OPEN HI,8,8,"P:"STRAP 48 
080:P=1 

5658 IF PEEK(Cl<>? THEN 5858 
5860 P=1 

5180 CNT=8:F0R 1=8 TO 7:REM <<<Sectors 
.)>> 

5118 SECT0R=I+36i:CMD=8;GOSUB 19808 
5148 ? HI:? Hl;"Sector ";SECTOR;" <$"; 

5145 X=PEEK(7793*2+2:Y=(SECTOR-INT(SEC 
TOR/2563*256)*2 

5158 ? H1;HEK$(X,X) ;HEX$(Y*1, Y+2) ;"> 

II • 

r 

5155 ? HI;"Seq No: ";I;" <$";HEX$(I*2+ 
1,1*2+23j")" 

5178 ? Hi;"No: Flag Sects Start" 

5175 ? HI;"— -» 

5208 FOR J=8 TO 127 STEP 16 

5285 ? Ill; HEX$(CNT*2+1, CNT*2+23 ;" »; 

5218 X=PEEK(BUFF+J):FLAG=X 

5228 ? ttl;HEX$(X*2+l,X*2+2);" »; 

5238 X=PEEK(BUFF+J+2) 

5248 ? HI;HEX$(X*2+2,X*2+2); 

5258 X=PEEK (BUFF+J+l) 

5268 ? Ni;HEX$(X*2+i,X*2+2);" 

5279 X=PEEK(BUFF+J+43 
5288 ? ttl;HEX$(X*2+2,X*2+2); 

5298 X=PEEK(BUFF+J+33 

5380 ? ttl;HEX$(X*2+l,X*2+2);" "; 

5398 X=8;IF FLA6>127 THEN X=1:FLAG=8 
5408 FOR 5=BUFF+J+5 TO BUFF+J+12 
5485 Y=PEEK(S3:IF X THEN IF P=0 THEN Y 
=Y+128 

5418 ? HI;CHR$(Y3; 

5458 NEXT S 
5468 ? HI;"."; 

5478 FOR S=BUFF+J+13 TO BUFF+J+15 
5488 Y=PEEK(S):IF X THEN IF P=6 THEN Y 
=Y+128 

5485 PRINT H1;CHR$(Y); 

5498 NEXT 5:IF X THEN ? HI;" ***"; 

5588 IF FLAG>95 THEN ? HI;" *"; 

5680 CNT=CNT+1;? HI:IF PEEK(C)<>7 THEN 
GOSUB 5958 


5650 NEXT J:NEXT I 

5888 ? HI;" Re~run <Y> —>»; 

5818 INPUT X$:IF X$="Y" THEN 5888 

5908 CLOSE Hi;GOTO 188 

5949 REM << A Little Delay! >> 

5958 IF PEEK(C3 =6 THEN 5958 

5955 IF PEEK(C)=3 THEN POP :CLOSE HI:G 

OTO 188 

5968 IF PEEK(C)=6 THEN RETURN 

5961 IF PEEK(C3 =5 THEN POP ;GOTG 5188 

5965 IF PEEK(C3 =7 THEN 5955 

18088 REM <<<<< Disk Interface >>>>> 

18188 POKE 769,UNIT 

18118 IF CMD=8 THEN POKE 7?e,82 

10128 IF CMD=i THEN POKE 778,87 

10138 POKE 772,BUFF-INT(BUFF/2563*256 

18148 POKE 773,INT(BUFF/256) 

10158 POKE 778,SECTOR-INT(SECTOR/2563* 
256 

18168 POKE 779 ,INT (SECTOR/2563 
18308 A=USR(ADR(DISKS)3 
18488 IF PEEK (7713=1 THEN RETURN 
18418 ? ;? CHR$(2533 :? "ERROR —> ";p£ 
EK(7713 

18438 ? "Type <*> To Re-try ... 

18458 INPUT X$:IF X$="*" THEN 16388 
10478 RETURN 
10999 REM 

11680 REM <<<<<< Bit Map Calc. >>>>>> 
11180 FOR IT=0 TO 7:B(IT)=8:NEXT IT:B= 
BYTE 

11118 IF B>127 THEN B=B-128:B(7)= 

11129 IF B>63 THEN B=B~64:B(63=1 — 

11138 IF B)31 THEN B=B~32:B(S3=1 
11148 IF B>15 THEN B=B~16:B (4)=1 
11158 IF B)7 THEN B=B-8:B(3)=i 
11168 IF B>3 THEN B=B-4;6(23=i 
11178 IF 8)1 THEN B=B-2;B(13=i 
11180 IF B)8 THEN B(83=l 
11988 RETURN 

12880 REM <<<<< Printer Routine >>>>> 
12810 TRAP 12908:OPEN HI,8,8,"P:":TRAP 

48008 

i2820 FOR Y=8 TO 28:P0SITI0N 6,Y 
12838 FOR X=8 TO 39:GET H6,A;IF A<32 0 
R A>122 THEN A=32 

12848 PUT HI, A .-NEXT X;? HI: NEXT Y:? HI 
:CLOSE HI:RETURN 

12908 ? CHR$(2533,"ERROR ->";PEEK (8513 

12918 ? "(RETURN) To Continue ..";:INP 

UT OPT$:RETURN 

38890 DATA 184,32,83,228,96 

32767 END 
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FROM LAST ISSUE 


QUICKSORT ACTION 


FILE: QUICKSRT.ACT 


INCLttOE**0: SORT. ACT* 1 

; This uses the Quick Sort 
; Procedures fro* the 
} ACTION TAOlUt 


\ KKKKKMMKICKKICMItKKKKM - KMKMKKKMKKKMItltKMMIC 
* 


IDEFINE GLOBAL VARIABLE] 


0 

; *XKKMKKKM*MKKKKMMKKMKMMMMMXKMMKMK)C)t)Cll 

# 

BYTE KEY,FLAG-E0J,TYP,HFLA6 

CARO ARRAY S(1008) 

CARO N,K,I,T,H, 

R,N2,L,LL,HOLO,RR,J,H0L02,JJ,R2 


00 

PRINT(“HOV Many iteNS do **) 
PRINT C*gou *ant to sort") 
PRINTEC' ”1 
PRINTEC ") 

PRINTEC'MdX = 999, Mini MUM = 18 

**) 

PRINTEC' ") 

PUTC?) N=INPUTC() 

UNTIL N>9 AND N<1088 
00 


OPEN (3, "0: MUH1888, RAN 11 ,4,8) 
;PEN(3,"0:NUH1880.SRT",4,81 
FOR 1=1 TO N 
00 

A=INPUTC0(3J 

5(I)=A 

00 

CLOSE(31 


CARO tine 

BYTE pl8=18,pl9=19,p20=20 
flag = i-flag 

IF flag=0 ; not 1st call 

THEN tine = p28 + 256* 

(pl9 + 256«pl8) 
Print( f, Elapsed Tine: “1 

PrintCCtiMe/SOI 
PRINTf" ANO ”! 
PRINTC(TIME MOO 601 
PrintE{“/60 seconds**) 

FI 

pl8=8 ; reset 

P±5~a ; the 

p20=0 ; clock 

RETURN 

j KMKMl H tKM*KMItl l XitMIC * I Ht KIHHtKKKKItMMMKKICXIC 
* 


TIMER (1 
RETURN 


PROC FIRSTSCREENC1 

0 


CLEAR AND PPIN 


jlH HHCMKKMMKMKKNMKKMKKMKMKKf t MNMXMKKIiltMM 


* 


* 


PROC GETKEYC) 


LGETKEY ROUTINE 


)W MMKICKKKKKKKMK)Cltlt)tKKIIMKMK M MMNKMKK)C 

* 


BYTE J,FIR5T=t0J 

IF FIRST=8 THEN GRAPHICS CO) FI 

FIRST==+i 

P0KEC712,8) 

J=RANO(16) POKE(718,4+16*J) 
POKE(70S,12) 


POKE(764,255) 

00 UNTIL PEEK(7641N255 00 

KEY=PEEK(764) 

POKE(764,255) 


RETURN 


# 

PROC prntso f mnM3SSSE 

) MKIWMMMI H HH H HHtIUHO t MMMI tIH II t KKKMICimMKKKK 
* 

CARO TEMP 

GETKEYO 


PRINTEC* **) 

PRINTEC'This is a demnstration of'*) 
PRINTECthe Quick Sort Procedure**) 
PRINTEC* **) 

PRINTE( M **) 

RETURN 


* 

PROC TIMER (1 

; XKJ H UtlOfMMMXXKintMMEMltl f XmtMIBtlHOtlUtKmont 
* 


FOR 1=1 TO N 
00 

IF KEY=28 THEN EXIT FI 
PRINTC(I) 

PRINT (**►") 

TEMP=S(I) 

PRINTCE(TEMP) 

00 

RETURN 


* 

PROC INITCl : iT!liirf;TI 


LIZATION ROUTINE 


; K N MKMKItlUtMI t WIH t MKI H HD t- IH H IKKICKKKMNMKKKKM 
* 


CARO A 


FIRSTSCREENO 
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OLD TEXT BY BYFIELD 


18 REM 

*# OLD TEXT BY M.BYFIELD *# 

*MEXK*K * E» K *** K *X X XXMKMMXMM 

28 REM * 

* 

38 REM IF THIS 15 GOING TO BE PUT INTO 
A PROGRAM THEN (Ttfi IT TO DISK 
OR CASSETE. 

48 REM THEN PUT IN A G05UB 38888 AND 
CHANE LINE 38118 TO RETURN. 


38888 REM 


38885 REM HE 


D SET FROM ROM INTO RAM 


38818 CHBASE=128*256 
38828 DIM CHAR*(343:RESTORE 38848 
38838 FOR 1=1 TO 34:READ A:CHAR*(I,13= 
CHR*(A3 '.NEXT I 

38849 DATA 184,184,133,215,184,133,214 

,169,224,133,213,169,8,133,212,162,4,1 

68,8,177,121,145,214,288,288 

38858 DATA 249,238,213,130,215,202,208 

,242,96 

38868 A=USR(ADRCCHAR*3,CHBA5E3 
38878 REM 

38888 FOR 1=8 TO 1823 
38098 READ CH:POKE CHBA5E+I,CH’.NEXT I 
38188 POKE 756,128 
38118 STOP :REM CHANGE TO RETURN IF 
USED IN A PROGRAM. 

38168 REM 

38178 DATA 8,8,8,8,8,8,8,8,8 
38188 DATA 24,24,24,24,8,24,8,8,182 
38190 DATA 182,182,8,0,8,8,0,102,255 
38288 DATA 182,182,255,182,8,24,62,96, 
68 

38218 DATA 6,124,24,8,8,182,188,24,48 
38228 DATA 182,76,8,28,54,28,56,111,18 
2 

38238 DATA 59,8,8,24,24,24,8,0,0 
38248 DATA 8,8,14,28,24,24,28,14,8 
38258 DATA 0,112,56,24,24,56,112,8,8 
38268 DATA 182,60,255,60,102,0,8,0,24 
38278 DATA 24,126,24,24,8,8,8,8,6 
38298 DATA 8,8,24,24,48,8,8,8,126 
38308 DATA 8,8,8,0,8,0,0,0,8 
30318 DATA 24,24,0,0,6,12,24,48,96 
38328 DATA 64,8,8,60,182,110,118,102,6 
8 

38338 DATA 8,8,24,56,24,24,24,126,0 
38348 DATA 0,68,102,12,24,48,126,8,8 
38358 DATA 126,12,24,12,182,68,8,8,12 
38368 DATA 28,68,188,126,12,0,0,126,96 


38378 DATA 124,6,182,60,8,8,68,96,124 


38388 

DATA 

38398 

DATA 

38410 

DATA 

38428 

DATA 

38438 

DATA 

38440 

DATA 

38458 

DATA 

38468 

DATA 

38478 

DATA 

38488 

DATA 

38490 

DATA 

7 


30500 

DATA 

38510 

DATA 

38538 

DATA 

38548 

DATA 

38558 

DATA 

38568 

DATA 

30570 

DATA 

38588 

DATA 

ill 


38598 

DATA 

38680 

DATA 

38618 

DATA 

,28 


38628 

DATA 

38638 

DATA 

38650 

DATA 

38660 

DATA 

38678 

DATA 

38688 

DATA 

38698 

DATA 

38708 

DATA 

38718 

DATA 

30728 

DATA 

38738 

DATA 

38748 

DATA 

38758 

DATA 

30778 

DATA 

38788 

DATA 

38798 

DATA 

38880 

DATA 

30818 

DATA 

38828 

DATA 

38838 

DATA 

30848 

DATA 

30858 

DATA 

3 


38868 

DATA 

38878 

DATA 

30898 

DATA 

2,0 


38908 

DATA 

30918 

DATA 


102,182,68,8,8,126,6,12,24 
48,48,0,8,68,102,68,102,102 


68,8,0,60,182,62,6,12,56 

0,0,8,24,24,8,24,24,8 

8,8,24,24,8,24,24,48,6 

12,24,48,24,12,6,0,8,8 

126,0,6,126,8,8,96,48,24 

12.24.48.96.8.8.60.182.12 
24,8,24,0,8,60,102,118,110 
96,62,8,0,38,55,183,183,111 

59.8.8.38.51.115.126.115.12 


8,8,38,51,96,96,112,63,0 

8,68,182,99,99,99,126,0,0 

38,51,96,124,96,127,8,8,38 

51,96,124,96,96,8,0,38,51 

96,118,99,62,0,8,99,99,99 

127,99,99,8,8,127,24,24,24 

24,127,8,8,3,3,3,115,54 

60,8,8,183,118,124,124,188, 

8,8,112,112,96,96,99,127,0 

0,99,99,119,127,187,99,8,0 

124,118,118,118,118,119,8,0 


54,99,99,54,28,8,8,38,51 

51,62,48,48,8,8,28,54,99 

99,111,62,3,8,68,54,54,62 

51,51,0,8,38,51,96,62,3 

127,8,8,63,188,188,12,12,27 


0,0,51,51,51,51,99,62,8 

0,99,99,99,54,68,24,8,8 

99.99.187.127.119.99.8.8.99 

102.60.28.54.99.8.8.99.99 
54,38,12,24,8,0,63,182,12 

24.51.126.8.8.30.24.24.24 
24,30,8,8,64,96,48,24,12 
6,8,0,128,24,24,24,24,128 
8,8,8,28,54,99,8,8,0 
0,8,8,0,8,8,255,0,0 

54.127.127.62.28.8.8.24.24 
24,31,31,24,24,24,3,3,3 
3,3,3,3,3,24,24,24,248 
248,8,0,8,24,24,24,248,248 
24,24,24,0,8,8,248,248,24 
24,24,3,7,14,28,56,112,224 
192,192,224,112,56,28,14,7, 

1,3,7,15,31,63,127,255,0 

8,8,8,15,15,15,15,128,192 

224,240,248,252,254,255,2,4 

21,21,8,42,2,32,170,8,84 

84,8,178,160,255,255,0,0,0 
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38928 

DATA 

38938 

DATA 

38948 

DATA 

38958 

DATA 

38966 

DATA 

38970 

DATA 

38988 

DATA 

78 


38998 

DATA 

92,192 

31818 

DATA 

4 


31028 

DATA 

31838 

DATA 

48,249 

31848 

DATA 

31058 

DATA 

31860 

DATA 

31970 

DATA 

31088 

DATA 

31890 

DATA 

31188 

DATA 

31118 

DATA 

31138 

DATA 

31140 

DATA 

31158 

DATA 

31169 

DATA 

31178 

DATA 

24 


31186 

DATA 

31198 

DATA 

31208 

DATA 

31218 

DATA 

31220 

DATA 

31230 

DATA 

8 


31258 

DATA 

2 


31268 

DATA 

02 


31278 

DATA 

62 


31289 

DATA 

31298 

DATA 

31388 

DATA 

31318 

DATA 

31328 

DATA 

31338 

DATA 

31348 

DATA 

31358 

DATA 

24 


31378 

DATA 

31388 

DATA 

31398 

DATA 

31488 

DATA 


9 , 8 , 8 , 0 , 8 , 8 , 8 , 8,8 
255,255,0,0,8,8,248,248. 


248.8.28.28.119.119.8.28.8 

8.8.9.31.31.24.24.24.8 
8,8,255,255,8,8,8,24,24 
24,255,255,24,24,24,8,8,166 


84,42,84,168,6,213,85,255,1 


170,255,85,93,192,192,192,1 


192,192,192,8,8,8,255,255,2 


24,24,24,24,24,255,255,8,8 

8,248,248,248,248,240,248,2 

24,24,24,31,31,8,8,8,120 

96.128.96.126.24.38.8.8.24 

68.126.24.24.24.8.8.24.24 
24,126,68,24,8,8,24,48,126 
48,24,8,8,0,24,12,126,12 
24,8,8,0,24,68,126,126,68 
24,0,8,8,38,54,118,118,159 
8,8,96,96,124,182,182,253,0 


8,0,60,112,96,112,223,8,0 

6,6,62,182,102,255,8,8,8 

28,54,54,28,247,8,8,28,56 

48,62,123,217,28,0,8,38,50 

114,222,135,60,8,96,96,96,1 


182,231,8,8,24,8,24,24,12k— 
195,0,8,28,0,28,68,111,265 

68.8.48.48.62.54.68.247.8 
8,24,24,24,24,24,231,8,0 

8.51.127.127.219.219.8.8.8 
124,182,182,182,231,0,8,8,6 

182,183,231,68,8,8,8,124,10 

182,124,231,96,0,0,62,182,1 

126,143,14,0,8,96,126,182,1 

195,0,8,8,14,27,51,99,223 

8,0,12,63,12,12,28,247,8 

8,0,115,51,51,51,223,0,8 

8.99.54.54.127.205.8.8.8 
99,99,107,127,221,8,0,8,51 
126,118,219,177,8,8,8,27,27 

31,54,287,24,0,0,8,182,91 

219,131,62,8,24,68,126,126, 

68,8,24,24,24,24,24,24,24 

24,8,0,8,24,24,8,8,8 

8,24,56,128,56,24,8,8,16 

24.28.38.28.24.16.8 


REM Modification to DOS 2.5 to 

11 REM store OUR.SYS and MEM.SAM 

12 REM in the bank switch RAM 

13 REM behind the OS ROM from $C888 

14 REM to $F8ff 

15 REM 

16 REM This WOd for 64K XL'S only 
28 REM Adapted fro* ANALOG 824 by 

21 REM Robert Luce 

22 REM 

23 REM frf B tMMMMMEKMMMMKMMKMMMXMMMMMMItM 

24 REM written by Alec Benson 6/85 

38 REM fro» ADELAIDE Atari 

31 REM Club, Box 333, Norwood, 

33 REM Australia S.A. 5867 Aug *85 

34 REM 

48 REM reprinted ACE Newsletter 
41 REM 3662 Vine Maple, Eugene, OR 
188 CX=8;DIM A$(339) 

185 ? :? "Reading Data...." 

118 FOR 1=1 TO 339 
128 READ A 
138 CK=CK+A 

148 A$(LEN(A$)+13=CHR$(A) 

158 NEXT I 

168 IF CK041872 THEN ? "ERROR IN DATA 
5TATEMENT5-CHECK TYPIN6":END 
178 OPEN ttl,8,8,"D;PATCH25.0BJ ,, *.PRINT 
#l;A$;:CLOSE #1 

<88 ? :? :? "D;PATCH25.0BJ CREATED:END 


R4TCH 2.5 

1178 DATA 169,31,133,215,169,228,133,2 : 
13 i 

1188 DATA 32,119,24,32,78,24,169,8 J 
1198 DATA 141,157,21,141,158,21,76,146 i 

1288 DATA 25,19,24,39,24,32,85,24 
1218 DATA 169,8,133,214,133,212,169,22 : 
8 ; 
1228 DATA 133,215,169,31,133,213,162,2 ; 
1 ’ 
1238 DATA 288,18,58,24,146,24,32,119 
1248 DATA 24,32,78,24,286,157,21,76 
1258 DATA 152,32,32,182,24,88,169,112 t 
1268 DATA 141,14,212,169,18,141,14,218 < 

i 

1278 DATA 96,128,169,8,141,14,212,141 - 
1288 DATA 14,218,173,1,211,41,254,76 * 

1298 DATA 187,24,173,1,211,9,1,141 - 

1388 DATA 1,211,96,234,234,234,234,32 
1318 DATA 156,25,96,168,8,177,214,145 
1328 DATA 212,288,288,249,238,213,238, 
215 

1338 DATA 282,288,242,96,234,234,234,2 

34 

1348 DATA 234,234,234,234,234,234,234, 
63 j 

1358 DATA 25,189,25,32,85,24,169,8 i 
1368 DATA 133,212,133,214,169,29,133,2 | 
13 J 

1378 DATA 169,192,133,215,162,16,32,11^ 


248 POKE 53767,168:POKE 53763,168 

258 FOR D=1 TO 16:NEXT D 

278 POKE 53767,8:POKE 53763,8 

298 FOR D=1 TO 8:NEXT D 

388 NEXT X 

338 GOTO 128 

358 DATA 158,2,176,3 

368 DATA 221,2,253,4 

378 DATA 158,2,253,4 

388 DATA 87,2,253,4 

398 DATA 221,2,131,4 

488 DATA 158,2,131,4 

418 DATA 87,2,131,4 

428 DATA 221,2,19,4 

438 DATA 158,2,19,4 

448 DATA 87,2,19,4 

458 DATA 221,2,176,3 

468 DATA 87,2,176,3 

ACTION 


COM * "T 


PROC MAINO 


DATA 255,255,231,28,233,28,32,192 

DATA 23,78,23,138,23,32,85,24 
DATA 169,8,133,212,133,214,169,29 

DATA 133,215,169,192,133,213,162, 

DATA 32,119,24,169,216,133,213,16 

DATA 7,32,119,24,32,78,24,96 
DATA 169,8,133,212,169,224,133,21 

DATA 168,8,162,3,177,212,72,32 
DATA 85,24,184,145,212,32,78,24 
DATA 288,288,241,238,213,282,16,2 

DATA 96,234,182,23,8,24,248,73 
DATA 32,78,23,286,158,23,48,65 
DATA 32,188,21,32,185,23,169,255 
DATA 141,158,21,141,157,21,162,16 

DATA 169,47,157,68,3,169,24,157 
DATA 69,3,32,164,21,32,85,24 
DATA 162,21,169,8,133,212,133,214 


1388 DATA 24,169,216,133,215,162,7,32 
1398 DATA 119,24,32,78,24,96,234,234 
1488 DATA 234,234,234,234,234,234,234, 
234 

1418 DATA 234,234,49,31,53,31,178,174 
1428 DATA 181,216,284 

TONEDIAL 


18 REM ***# TONE DIAL 
88 DIM FI (11),F2(11),Cl(ll),C2(li),PN$ 
(28) 

98 FOR X=8 TO 3:S0UND X,8,8,8:NEXT X:P 
OKE 53768,128 

188 FOR X=8 TO 11:READ A,B,D,E:Fi(X)=A 
:Cl(X)=B: F2(X)=D:C2(X)=E:NEXT X 
128 ? "ENTER 8" 

138 INPUT PN$:TRAP 128 
158 FOR X=i TO LEN(PN$) 

218 N=MAL(PN$(X,X)) 

238 POKE 53762,Cl(N):POKE 53768,F1(N): 
POKE 53766,C2(N):POKE 53764,F2(N) 


CSORT(S,N,8) 

TIMER () 

POKE(752,1) 

PRINTEf" "1 

PRINTEf** Press any key to see list") 

printer* Press ESC to exit") 

PRNTSf) 

IF KEY=28 THEN EXIT FI 
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SECTOR 

The Missing Link 

(reprint: Page 6) 

The idea of SECTOR is to allow those of you with an Atari 810 disk 
drive to experiment without being limited by DOS to the file structure. 
With SECTOR you are able to load, edit, and save ANY sector on the 
disk. With a reasonable understanding of DOS M's file structure you can 
perform all kinds of "nifty" things, such as retrieving deleted files and 
repairing damaged files. Examining and altering auto-boot disks is also 
greatly simplified. As an understanding of the way data is stored by DOS 
II will be of help, I will briefly outline its file structure. 

The 810 drive organizes the floppy disk as a collection of numbered 
blocks of bytes called "sectors". There are 720 sectors or blocks, and 
each holds 128 bytes or characters. As each file is created, an empty 
block is found and the data is poured into it. When the sector is filled, 
for another free sector has to be allocated and somehow linked to the 
first so when the file is being read the second sector can be found. 

The directory information for this file only tells the DOS where to 
find its first sector. So how does DOS find the rest of the file? Well, only 
125 bytes in each block are used for the user's data. The remaining 3 
bytes are kept and used by DOS to provide 3 functions: 1. To point to 
the next sector in the file; 2. To say which number file the sector belongs 
to; and 3. To indicate if the sector is a "short" sector, and if so how many 
bytes are valid. 

The pointer is obviously the key to the way in which DOS finds the 
next sector allocated to the file. The second function is not really 
essential, but it is useful, because as DOS created the file it notes the 
occurrence of the file's name entry in the directory and places this 
number into one of the last 3 bytes of each sector used by the file. 
Whenever the file is read back, if there is ever a discrepancy between 
the value of this byte and the directory, DOS assumes there has been 
some problem. It will report this to the user as the dreaded "ERROR 164”, 
file number mismatch. 

This unhappy event is usually caused by the careless user either 
"BREAK”ing or "SYSTEM REST"ing during a disk operation, or swapping 
disks in a drive while a file is still open on the drive. Both are !!**!!* 
mistakes which should be avoided at all costs! 

The last function is a vital one, for a file may not have used all the 
bytes in its last sector, and if this is the case DOS needs to know this 
fact and how many bytes of that sector are allocated to the file. There 
are 3 functions and 3 bytes, so it seems logical to have one byte per 
function. This cannot be so, however, because there are 720 sectors 
on a disk. So more than one byte is needed to store the next sector 
information. Since the directory position byte number does not have to 
be larger than 63, it does not require all 8 bits of its byte, so two of its 
bits are used by the next sector pointer. 
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This is how the sector's bytes are allocated. Looking at the diagram 
you will see one of the bits has not been explained yet, the "S" bit on 
byte 127. If the last sector of a file is not completely used, then the "S" 
bit is set to logic high, and the BYTE COUNT will give the actual number 
of valid bytes. 

THE DIRECTORY 

There are 8 sectors (361-368) allocated to the disk directory, each 
holding 8 entries; i.e., 64 entries total. The 16 bytes of each file directory 
are allocated as follows: 
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The flag byte is used to indicate 
the status of the file and the bits are 
mapped as follows: 

BIT No * IF SET HIGH, THEN 

BIT 7 * FILE HAS BEEN DELETED 

BIT 6 * FILE ENTRY EXISTS 

BITS * FILE IS LOCKED 

BITO * EILE ISOPEN FOR OUTPUT 


The flag byte is used to indicate the status of the file and the h 
are mapped as follows: 

BIT #- If set HIGH, then 

7 File has been deleted 
6 File entry exists 
5 File is locked 
0 File is open for output 

Thus the flag byte may have the following values: 

VALUE-STATUS 

$00 Entry not yet used 

$40 Entry in use (normal closed file) 

$41 Entry is in use (and file is currently open for output) 

$60 Entry is in use (AND file is locked) 

$80 Entry is available (prior file has been deleted) 

The sector count (number of sectors in the file) and the starting 
sector number are obvious, as is the filename. Note, however, that DOS 
does not insert the full stop before the extension. The directory manager 
routines remove and insert this for the user's convenience. 


THE PROGRAM 

The precise format of the program is important, so be careful to 
include the correct number of spaces and characters where applicable, 
otherwise you may find some strange numbers will result. The program! 
when first RUN, will take over 10 seconds to initialize its string and arrays, 
so if you BREAK out of the program you can resume it by typing GOTO 
100 and avoid the long 10-second wait. This continues without having 
to re initialize! The program is based around a menu and has 5 options. 

1. Normal Directory Listing: This gives the standard disk directory 
listing in two column format. Typing RETURN will take you back to the 
menu. Any other key will re-run the directory. 

2. Load Sector: This allows you to load a sector into the buffer, and 
will first ask you for the sector number in "HEX", i.e. 001 to 2D0. Typing 
RETURN only will cause the program to ask for a decimal value in the 
range 1 to 720. A further RETURN will allow you the option of loading 
the current sector by typing '*'. 
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3. Save Sector: This is identical to the load sector option in use. 

4. Edit Sector: This is the major section of the program. The current 
buffer contents are displayed in the form of a matrix, and there are several 
options available.. These include: 

Pressing START aborts the matrix display and asks for the X and 
.oordinates to edit; 

__ Pressing OPTION suppresses the printing of the hexadecimal buffer 
listing, but still gives the character; 

Pressing SELECT suppresses the printing of the character buffer 
listing, but still gives the hexadecimal byte value table. 

When the program asks for the X co-ordinate to edit, the following 
commands are available: 

+ loads and displays the next disk sector. 

- loads and displays the previous disk sector. 

N loads and displays the next sector in the same file as the current 
sector (if valid). 

P dumps the display to a printer. 

If none of these options are required, you can either type RETURN 
to get back to the main menu or type the X co-ordinate of the byte you 
wish to alter. You will then be asked for the Y co-ordinate, after which 
you can insert the hex or decimal number, or an ASCII string. 

5. Examine Directory Sectors: This allows you to examine the disk's 
directory sectors directly. It prints out the flag byte, the number of 
sectors, and the starting sector for each file entry to the screen. If the 
START key is held down while this is entered, everything is printed to 
the printer rather than to the screen. Pressing START after the routine 
has been entered will pause the output to screen or printer. SELECT will 
retart at the first directory sector, and OPTION will return you to the main 
menu. 

USING SECTOR 

Quite apart from simply experimenting and learning about the disk 
system, there are many practical uses for SECTOR. For instance, if you 
have accidentally deleted an irreplaceable file on a disk, it can be retrieved 
by finding its old directory allocation using option 5 (examine directory 
sectors), then using the sector edit facility to alter the FLAG byte to $40. 
You should then copy off to a fresh, formatted disk all the desired files. 

One important part of the ATARI DISK SYSTEM is the VOLUME 
TABLE OF CONTENTS (sector 360) in which DOS keeps track of which 
sectors are in use and which are free for new or extended files. This is 
the subject of another article. Meanwhile I hope you have many 
interesting hours of experimentation. 

— Ron Levy 


MEETING 
WEDNESDAY 
NOVEMBER 13TH 
7:30 PM 

SOUTH 

FI !P.F\!F 

LUULi 1L 

HIGH 


Solder two wires to the two conductors on the jack. Join the two 
cut wires from the speaker with the ones from the jack. Make sure you 
have got the right wires going where. In other words, the connection 
to the speaker is the same except in the middle the leads of the jack 
are attached to pick up the signal. You've got to protect these, so either 
wrap electrical tape around them or use those insulated connectors. 

Now you're done with the TV set. It's time to solder two wires to 
the two conductors of the plug. Hey! You with the earphone in your TV, 
wake up! You've got to do this too! Ok, now you have two wires coming 
from your plug. Take these two wires and wrap them to the two wires 
on the side of the transformer which has two wires (The other side has 
3, that's the 1000-ohm side). Once again, protect these connections. 

Take the other side of the transformer, the one with 3 wires, and 
connect the two on the outside to the red and green wires of the phone 
line. You can do this anyway you want, I leave it up to you. I suggest 
protecting the transformer somehow. Mine is in my phone. Well, you're 
done! 

TONE DIAL is a program which generates the tones and puts them 
through the speaker. However, I didn't write this. It's from (*Gasp*, 
Copyright!) A.N.A.L.O.G. Magazine issues 19 and 21. 

Theoretically, this should work with ANY modem if you can put the 
subroutine into the terminal program. I know it works on the 835, I own 
one! So, now you can tone dial like the big modems do. 

F5IZE BY RALPH MLDEI 

/* fjiZE .c - returns size of file */ 

((include “getnane.c" 

MainO $( 

char naMe (283; 

int iocb,len,divisor,kbytes,reMain; 
fastO; 

iocb=getread(naMe," "); 

divisor- (peek(9x1311+(naMe(13- 1 6 1 )) 

== 2) ? 253:125; 

/* single or double density sectors * 

/ 

inverse(naMe); 

len=bgets (loMeM(iee), highMeMO - 
lOMeM(180) J iOCb); 
closeall(); 

kbytes=len/1824; /* nuMber of K */ 
reMain-((lenS1824)*18)/1824; 
printf("Kts|\nxd bytes, r.d.r.d K\n“, 
naMe,len,kbytes,reMain); 

printf(“Xd sectors ♦ Xd bytes\n\n", 
len/divisor,lenXdivisor); 
exito; 

$) 

/* convert a string to inverse 
characters #/ 
inverse(str) 
char *str; 

$( 

while(*str) *str++ 1=128; 

/* OR the inverse bit */ 

$) 
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10/11/05... Following is the text 
of an official press release 
issued today by Sam Tramiel, 
president of Atari Corp. , 
concerning the recent agreement 
between ORI and Apple. 

SUNNYUALE, CALIFORNIA — In an 
agreement between Digital 
Research and Apple Computer, 
Digital Research has agreed to 
make certain superficial changes 
to three of its application 
programs: ”GEN Desktop”, ”GEN 
Paint”, and ”GEN Draw”. Contrary 
to reports, the agreement does* 
not require changes to GEN orto 
Atari Corp.’s TOS 
uperatingsystem. 

DRI, as part of its normal 
development process, has prepared 
enhancements to its GEN 
application products which 
further set it apart from the 
Apple Nacintosh. Atari is 
reviewing these changes. Atari 
promises to its software 
developers and custmers that 
Atari will make no changes that 
will reduce the capabilities of 
the Atari ST system and software. 
Further, Atari promises that any 
enhancements will maintain 
compatability with GEN 
applications software on the 
market and in development. 

Digital Research’s GEN and the 
applications software which uses 
its capabilities will continue 
toprovide the most powerful 
andeasy-to-use computer interface 
onthe market. The Atari 5E0ST 
continues to be the most powerful 
computer delivering these 
features and will continue to do 
so at an affordable price. 


FADEOUT 

ie GOTO 308 

97 REM **** 

98 REM * FADE IN AND OUT SUBROUTINE * 

99 REM **## 

188 0=3 

118 FOR L=0 TO 14 STEP Z 
120 SETCOLOR 1,0,L 
130 GOSUB DELAY 
140 NEXT L 

150 D=180:GOSUB DELAY:D=2 
160 FOR L=14 TO 8 STEP "2 
170 SETCOLOR 1,0,L 
188 GOSUB DELAY 
190 NEXT L 

197 REM **** 

198 REM * DELAY SUBROUTINE * 

199 REM **** 

280 POKE 20,0 

210 IF PEEK(20)<D THEN 218 
220 RETURN 

297 REM **** 

298 REM * INIT ROUTINE * 

299 REM **** 

388 GRAPHICS 0 
310 POKE 752,1 

328 FADE=188:DELAY=208 
338 SETCOLOR 1,0,0 
348 SETCOLOR 2,8,0 

347 REM ***» 

348 REM * MAIN LOOP * 

349 REM *»#* 

350 ? CHRf(125) 

360 POSITION 10,8 

370 ? “THIS IS AN EXAMPLE- 
380 POSITION 17,18 
390 ? "OF" 

480 POSITION 13,12 
418 ? "FADING TEXT" 

420 GOSUB FADE 
438 D=20!GOSUB DELAY 
440 ? CHR$(125) 

450 POSITION 6,10 

460 ? "THE LETTERS FADE IN AND OUT" 

470 GOSUB FADE 

480 D=20:GOSUB DELAY 

490 GOTO 358 


15 



Atari Computer Enthusiasts 

A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to Atari Corp. We are a group 
interested in educating our members in the use of the Atari Computer 
and in giving the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our members. 

Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $14 a year for U.S., and $24 a year Overseas Airmail 
and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 
**President— Dick Barkley, 2907 Wingate, Eugene, OR 97405 

503-344-5843 

Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, Or 97405 

503-686-1490 

8-bit Librarian— Chuck & Jody Ross, 2222 Ironwood, Eugene 97401 

(503) 342-4133 

ST Librarian— Jim Bumpas, 4405 Dillard Rd., Eugene OR 97405 

503-484-4746 

Editors— Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 

503-344-6193 

Jim Bumpas, 4405 Dillard Rd., Eugene, OR 97405 

503-484-4746 

E.R.A.C.E. (Education SIG Editor)— Nora Young, 105 Hansen Lane, 

Eugene, OR 97404 / 503-688-1458 
Send 50c stamps or coin ($1 overseas) to the Ness' for the new, 
updated ACE Library List —new in May 85! 

Bulletin Board 
(503) 343-4352 

On line 24 hours a day, except for servicing and updating. Consists 
of an 800 XL, 2 double-density double sided disk drives and 2 double¬ 
sided, double-density, 80-track disk drives, an Epson MX80 printer, a 
1200 baud Prentice P212ST modem, running the Mindlink Bulletin Board 
software distributed by SofMark. 

Best of ACE books 

Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 

Volume 2 covers July 1982 to June 1983 

Only $12 each ($2 extra for Airmail). Available only from: 

George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 



TYPESETTING 

FROM YOUR COMPUTER 

ATARI OWNERS: If you. have a modem, text editor, and com¬ 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line!’ 
And it s easy to encode your copy with the few typesetting 
commands you need. 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 



30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683*2657 


SortFinder Index 

A composite index of Atari related articles in four popular computer 
periodicals, including ACE. Volume Icovers April, 1981 to June, 1983. 
Volume 2 covers July, 1983 to December, 1985. Only $6 per printed copy 
or $11 per disk copy for ACE members: 

Jim Carr 2660 S.W. DeArmond 
Corvallis, OR 97333 




